home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / demos&programme / turbocalc / français / arexx / turbocalc.rexx < prev   
OS/2 REXX Batch file  |  1996-09-29  |  1KB  |  45 lines
  1. /**********************************************************
  2.  * Exemple d´un script ARexx pour TurboCalc © 1993 M. Friedrich
  3.  **********************************************************/
  4.  
  5. Options FailAt 0
  6. Options Results
  7.  
  8. /* Déterminer le port de TurboCalc */
  9. /*--------------------------*/
  10. ADDRESS TCALC
  11.  
  12. /* Enregistrer la position actuelle */
  13. /*--------------------------*/
  14. GETCURSORPOS
  15. oldpos = RESULT
  16. say "Le curseur se trouvait à la position" oldpos
  17.  
  18. /* Remplir la cellule A1 */
  19. /*--------------------*/
  20. PUT 10 A1
  21.  
  22. /* et la cellule A2 */
  23. /*--------------*/
  24. PUT 1.23 A2
  25.  
  26. /* Écrire une formule dans A3 */
  27. /*----------------------*/
  28. SELECTCELL 'A3'
  29. PUT '=A1+A2'
  30.  
  31. /* Vérifier le contenu de A3 : */
  32. /*-------------------------*/
  33. GETFORMULA
  34. say "Formule en A3 :" RESULT
  35.  
  36. /* Contenu (c-à-d résultat) de A3 */
  37. /*-------------------------------*/
  38. GETVALUE A3
  39. say "Résultat" RESULT
  40.  
  41. /* restaurer la position du curseur */
  42. /*--------------------------------*/
  43. SELECTCELL oldpos
  44.  
  45.